64'er 1987 April

home *** CD-ROM | disk | FTP | other *** search

/ 64'er 1987 April / 64er_Magazin_87-04_1987_Markt__Technik_de.d64 / fractale 9.0.src (.txt) < prev next >

Wrap

Commodore BASIC | 1987-01-01 | 24.5 KB | 1,586 lines

10 tanfractale 9.0 20 tangeschrieben 11/86 30 tanauf einem c64 mit xlsinassmon 40 tanvon 50 tani. camclrusen 60 tanaspenweg 29 70 tan1000 berlin 20 80 tan 90 tan 100 tan 110 tanbenutzte betriebssystemsinroutinen 120 tan 130 kopierenfrernda3c0 140 stringoutfrerndab1e 150 numoutfrerndbdcd 160 zeilclrfrernde9ff 170 sekadrsendfrerndff96 180 iecinfrerndffa5 190 talkfrerndffb4 200 filparfrerndffba 210 filnamfrerndffbd 220 printfrerndffd2 230 loadfrerndffd5 240 savefrerndffd8 300 tan 310 tanverwendete adressen 320 tan 330 facfrernd61 340 memfrernd8b 350 filenamefrernd02c0 360 arrayfrernd6000 370 datendfrernd7100 380 naehfredatendsin1 390 swfredatendsin2 400 a2fredatendsin3 410 awfredatendsin4 420 menuebegfrernd71ff 430 multitextfrernd7340 440 xk'lfrerndd000 450 ykfrerndd001 460 xk'hfrerndd010 470 sourcemapfrernda000 480 zielmapfrernde000 490 multxtadrfrernde000cos264 500 tan 510 tanvariable 520 tan 530 xvfre30 540 yvfre50 550 verzfre2 560 umblendverzfre10 570 bckgndfre15 900 tan 910 tan 920 expfrernd8000 930 tan 1000 tan 1010 tanexpexpexpexpexpexpexpexpexpexpexpexpexp 1020 tanhauptprogramm 1030 tanexpexpexpexpexpexpexpexpexpexpexpexpexp 1040 tan 1050 return#8 tan"<c=>+<shift> blockieren 1060 [183] print 1070 [142]#6 1080 [139] 53280 1090 [192] 1100 init[183] dataclr [192]"einsprung nach 'run' ohne stuetzpunkte 1110 usr varinit 1120 usr mausan 1130 usr busyon 1140 usr ein 1150 usr clr2 1160 usr berechnen 1170 tan 1180 runusr clr2 tan"einsprung nach 'dload' u. 'run' mit 1190 [183] ein [192]"stuetzpunkten 1200 usr mausan 1210 usr busyon 1220 usr farbset 1230 usr zeichnen 1240 usr grafikcopy 1250 usr busyoff 1260 tan 1270 run2usr ein tan"einsprung nach 'gsave' u. 'dsave' 1280 [183] farbset 1290 [183] mausan 1300 [192] 1310 main[183] menueein [192]"hauptschleife 1320 return#0 1330 if befehl 1340 main1return#1 1350 if feuerflag 1360 rem#70 1370 usr joyverz 1380 usr feueroff? 1390 usr joyloop 1400 return zeile tan"maus auf der menuezeile? 1410 [181] main [192]"nein ==> hauptschleife 1420 usr getbefnr tan"ja, nummer des befehls holen 1430 [145] befehl [192]"zweiter klick? 1440 abs bef1? tan"ja, befehl ausfuehren 1450 [139] befehl [192]"nein, befehlsnummer speichern, 1460 usr menueein tan"befehl im menue invertieren 1470 [183] befinv 1480 [135] main1 1490 [192] 1500 bef1?[145]#1 1510 [181] bef2? 1520 [142]#5 [192]"'next' ausfuehren 1530 on naeh 1540 < main 1550 usr busyon 1560 usr berechnen 1570 usr zeichnen 1580 usr umblenden 1590 usr busyoff 1600 read main 1610 tan 1620 bef2?on#2 1630 int bef3? 1640 usr mausoff tan"'run' ausfuehren 1650 [183] aus 1660 [142]# [193]runtext1 1670 [141]# [194]runtext1 1680 [183] stringout 1690 runm1[183] taste 1700 [142] 631 1710 [145]#78 1720 [181] [189][190]3 1730 [135] init [192]"keine stuetzpunkte ==> neu initial. 1740 on#74 1750 int runm1 1760 usr dataclr tan"stuetzpunkte eingeben 1770 [183] varinit 1780 [142]#1 1790 [139] naeh 1800 [183] z3220 1810 [142]# [193]runtext2 1820 [141]# [194]runtext2 1830 [135] stringout 1840 [192] 1850 bef3?[145]#3 1860 [181] bef4? 1870 [183] mausoff [192]"'dload' 1880 read aus 1890 tan 1900 bef4?on#4 1910 int bef5? 1920 usr mausoff tan"'dsave' 1930 [135] aus 1940 [192] 1950 bef5?[145]#5 1960 [181] bef6? 1970 [183] mausoff [192]"'gload' 1980 read aus 1990 gloadinclose tan"einsprung nach 'gload' vom basic aus 2000 [142] multi 2010 [156] 2020 [143]#53 2030 [140] 1 2040 [142] [187]ff50 2050 [139] multi 2060 [143]#55 2070 [140] 1 2080 [157] 2090 [183] farbset [192]"geladene grafik zeigen 2100 usr ein 2110 usr joyloop tan"warten auf 'feuer' 2120 [159] 2130 [145] multi [192]"war die geladene grafik im selben 2140 if multi tan"modus (multi/hrs) wie die aktuelle? 2150 [182] [189][190]3 [192]"ja ==> ueberblenden 2160 usr clr2 tan"nein ==> bildschirm vorher loeschen 2170 [183] ein 2180 [183] farbset 2190 [183] umblenden 2200 [183] mausan 2210 [135] main 2220 [192] 2230 bef6?[145]#6 2240 [181] bef7? 2250 [183] mausoff [192]"'gsave' 2260 read aus 2270 tan 2280 bef7?on#7 2290 int main 2300 usr busyon tan"'multi' / 'hires' 2310 [142] multi [192]"flag fuer multi-/hires-grafik 2320 input#1 tan"umschalten 2330 [139] multi 2340 [183] zeichnen [192]"landschaft in diesem modus zeichnen 2350 usr clr2 2360 usr umsch 2370 usr farbset 2380 usr menueein 2390 usr umblenden tan"und umblenden 2400 [183] busyoff 2410 [135] main 2420 [192] 2430 [192] 3000 [192] 3010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 3020 [192]up menuezeile einblenden 3030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 3040 [192] 3050 menueein[142]# [193]menuebeg 3060 [141]# [194]menuebeg 3070 [139] 95 3080 [138] 96 3090 [142]#[187]40 3100 [141]#[187]e1 3110 [139] 88 3120 [138] 89 3130 [152] 3140 [142] 95 3150 [136]#[193]321 3160 [139] 90 3170 [142] 96 3180 [136]#[194]321 3190 [139] 91 3200 [183] kopieren 3210 [142]#0 3220 [139] 53281 3230 [142] multi 3240 [181] menueeinback 3250 [142]# [193]multitext [192]"multi=0 ==> 'multi' statt 'hires' 3260 gosub# peekmultitext tan"ins menue schreiben 3270 [139] mem 3280 [138] mem[190]1 3290 [142]# [193]multxtadr 3300 [141]# [194]multxtadr 3310 [139] mem[190]2 3320 [138] mem[190]3 3330 [141]#39 3340 menueloop[142] (mem),y 3350 [139] (mem[190]2),y 3360 [161] 3370 [175] menueloop 3380 menueeinback[158] 3400 [192] 3410 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 3420 [192]up maus[191]cursor anschalten 3430 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 3440 [192] 3450 mausan[142]#180 [192]"maus-cursor auf bildschirm-mitte 3460 if xk'l tan"etwas unterhalb des menues plazieren, 3470 [142]#60 3480 [139] yk 3490 [142]#1 [192]"farbe weiss und einschalten 3500 if 53269 3510 if 53287 3520 return#0 3530 if xk'h 3540 return#47 tan"sprite-pointer auf muster fuer 'pfeil' 3550 [139] [187]cff8 3560 [158] 3600 [192] 3610 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 3620 [192]up neue punkte berechnen 3630 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 3640 [192] 3650 berechnen[149] naeh [192]"dreiecksseiten halbieren, 3660 return#0 tan"punkt in der mitte zufaellig nach 3670 [139] yz [192]"oben oder unten verschieben 3680 return#rnd80 3690 if yg 3700 z3080return yg 3710 input#255 3720 if yg 3730 or z3140 3740 z3090return sw 3750 if xz 3760 z3100cont 3770 return xz 3780 save a2 3790 spc( 3800 gosub yz 3810 print# 3820 usr sto/rcl 3830 if fac 3840 print# 3850 return xz 3860 let a2 3870 spc( 3880 gosub yz 3890 print# 3900 usr sto/rcl 3910 print# 3920 let fac 3930 print# 3940 and expcos1 3950 cont 3960 goto 3970 if fac 3980 return naeh 3990 usr zufall 4000 print# 4010 let fac 4020 rem xz 4030 gosub yz 4040 cont 4050 usr sto/rcl 4060 z3110print# 4070 return xz 4080 let aw 4090 if xz 4100 z3120print# 4110 return xz 4120 let yz 4130 on#64 4140 < z3100 4150 z3130read z3200 4160 z3140return#0 4170 if xz 4180 z3150cont 4190 return yz 4200 save a2 4210 fn 4220 rem xz 4230 print# 4240 usr sto/rcl 4250 if fac 4260 rem xz 4270 print# 4280 return yz 4290 let a2 4300 fn 4310 print# 4320 usr sto/rcl 4330 print# 4340 let fac 4350 print# 4360 and expcos1 4370 cont 4380 goto 4390 if fac 4400 return naeh 4410 usr zufall 4420 print# 4430 let fac 4440 rem xz 4450 gosub yz 4460 cont 4470 usr sto/rcl 4480 z3155print# 4490 return xz 4500 let a2 4510 if xz 4520 z3160cont 4530 return xz 4540 save a2 4550 spc( 4560 print# 4570 return yz 4580 let a2 4590 fn 4600 print# 4610 usr sto/rcl 4620 if fac 4630 print# 4640 return xz 4650 let a2 4660 spc( 4670 cont 4680 return yz 4690 save a2 4700 fn 4710 print# 4720 usr sto/rcl 4730 print# 4740 let fac 4750 print# 4760 and expcos1 4770 cont 4780 goto 4790 if fac 4800 return naeh 4810 usr zufall 4820 print# 4830 let fac 4840 rem xz 4850 gosub yz 4860 cont 4870 usr sto/rcl 4880 z3180print# 4890 return xz 4900 let a2 4910 if xz 4920 z3190cont 4930 return#64 4940 save yz 4950 on xz 4960 < expcos3 4970 read z3150 4980 z3200print# 4990 return yz 5000 let a2 5010 if yz 5020 z3210on#64 5030 sgn expcos3 5040 read z3080 5050 z3220dim aw 5060 z3230dim a2 5070 z3240dim sw 5080 sys 5100 tan 5110 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 5120 tanup hoehe(x/y) holen bzw. speichern 5130 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 5140 tan 5150 sto/rclpoke tan"carry=0 ==> hoehe holen 5160 [156] [192]"carry=1 ==> hoehe speichern 5170 return# rndbf tan"adresse d. hoehe(x/y) im array errechnen 5180 [139] mem 5190 [142]# [187]5f 5200 [139] mem[190]1 5210 storclloop[152] 5220 [142] mem 5230 [136]#65 5240 [139] mem 5250 [142] mem[190]1 5260 [136]#0 5270 [139] mem[190]1 5280 [161] 5290 [175] storclloop 5300 [162] 5310 [165] 5320 [159] 5330 [153] 5340 [179] storclm 5350 [139] (mem),y [192]"hoehe speichern 5360 storclmreturn (mem),y tan"hoehe holen 5370 [158] 5400 [192] 5410 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 5420 [192]up zufaellige hoehenaenderung ermitteln 5430 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 5440 [192] 5450 zufall[143]#[187]80 [192]"stimme#3 im sid fuer zufallszahl 5460 restore rndd418 tan"aktivieren, wellenform 'rauschen' 5470 [143]#[187]ff 5480 [140] [187]d40e 5490 [140] [187]d40f 5500 [143]#0 5510 [140] [187]d412 5520 [143]#[187]81 5530 [140] [187]d412 5540 [165] 5550 [161] 5560 [142] ditab,y [192]"maximal-wert 5570 data 54299 5580 step 5590 cont 5600 save ditab,y 5610 sys 5620 tan 5630 ditabpos 63,31,15,7,3,1,0 5640 tan 5650 tan 5660 tan 5670 tan 5680 ygpos0 5690 yzpos0 5700 xzpos0 5800 tan 5810 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 5820 tanup ldataschaft zeichnen 5830 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 5840 tan 5850 zeichnenusr clr tan"bitmap ab $a000 loeschen 5860 z3999[142]#64 [192]"schrittweite in abhaengigkeit von der 5870 rem naeh tan"naeherung berechnen 5880 zloop1[134] 5890 [170] 5900 [181] zloop1 5910 [139] s 5920 z4000[142]#0 5930 [139] y 5940 zyloop[142]#0 5950 [139] x 5960 z4020[142]#2 [192]"farbe des dreiecks = blau 5970 if farbe 5980 return x 5990 for 6000 print# 6010 let y 6020 if p0'l 6030 return#0 6040 let#0 6050 if p0'h 6060 for p0'l 6070 input# p0'h 6080 z4030return y 6090 for 6100 print# 6110 let#yv 6120 if p1 6130 z4040rem x 6140 gosub y 6150 print# 6160 usr sto/rcl 6170 or z4050 tan"punkt unterhalb des meeresspiegels ==> 6180 [182] z4050 [192]"y-koord. nicht veraendern 6190 if fac tan"sonst: ykoord.=ykoord.-hoehe, 6200 [154] 6210 [142] p1 6220 [148] fac 6230 [139] p1 6240 [142]#1 [192]"zeichenfarbe fuer das dreieck = gruen 6250 if farbe 6260 z4050return s 6270 for 6280 for 6290 print# 6300 let p0'l 6310 if p2'l 6320 return#0 6330 let#0 6340 if p2'h 6350 z4060return y 6360 for 6370 print# 6380 let#yv 6390 if p3 6400 z4070print# 6410 return x 6420 let s 6430 spc( 6440 gosub y 6450 print# 6460 usr sto/rcl 6470 or z4080 6480 abs z4080 6490 if fac tan"punkt oberhalb des wasserspiegels 6500 [154] 6510 [142] p3 6520 [148] fac 6530 [139] p3 6540 [142]#1 [192]"farbe gruen 6550 if farbe 6560 z4080return s 6570 for 6580 print# 6590 let p0'l 6600 if p4'l 6610 return#0 6620 let#0 6630 if p4'h 6640 z4090print# 6650 return y 6660 let s 6670 for 6680 print# 6690 let#yv 6700 if p5 6710 z4100print# 6720 return y 6730 let s 6740 fn 6750 rem x 6760 print# 6770 usr sto/rcl 6780 or z4130 6790 abs z4130 6800 if fac tan"punkt ueber dem meeresspiegel 6810 [154] 6820 [142] p5 6830 [148] fac 6840 [139] p5 6850 [142]#1 [192]"farbe=gruen 6860 if farbe 6870 z4130return p0'l tan"verschieben in x-richtung um xv 6880 [152] [192]"zwecks zentrieren 6890 let#xv 6900 if p0'l 6910 return p0'h 6920 let#0 6930 if p0'h 6940 print# 6950 return p2'l 6960 let#xv 6970 if p2'l 6980 return p2'h 6990 let#0 7000 if p2'h 7010 print# 7020 return p4'l 7030 let#xv 7040 if p4'l 7050 return p4'h 7060 let#0 7070 if p4'h 7080 return p0'l tan"linie p0,p1 nach p2,p3 7090 [143] p0'h 7100 [141] p1 7110 [139] x0'l 7120 [140] x0'h 7130 [138] y0 7140 [142] p2'l 7150 [143] p2'h 7160 [141] p3 7170 [139] x1'l 7180 [140] x1'h 7190 [138] y1 7200 [183] draw 7210 z4140[142] p2'l [192]"linie p2,p3 nach p4,p5 7220 rem p2'h 7230 gosub p3 7240 if x0'l 7250 restore x0'h 7260 run y0 7270 return p4'l 7280 rem p4'h 7290 gosub p5 7300 if x1'l 7310 restore x1'h 7320 run y1 7330 usr draw 7340 z4150return p4'l tan"linie p4,p5 nach p0,p1 7350 [143] p4'h 7360 [141] p5 7370 [139] x0'l 7380 [140] x0'h 7390 [138] y0 7400 [142] p0'l 7410 [143] p0'h 7420 [141] p1 7430 [139] x1'l 7440 [140] x1'h 7450 [138] y1 7460 [183] draw 7470 z4160[152] [192]"schleifenende 7480 return x 7490 let s 7500 if x 7510 return#63 7520 cont 7530 save y 7540 on x 7550 < expcos3 7560 read z4020 7570 return y 7580 let s 7590 if y 7600 on#63 7610 abs expcos2 7620 sgn zm 7630 read zyloop 7640 zmsys 7650 tan 7660 tan 7670 tan 7680 xpos0 7690 ypos0 7700 p0'lpos0 7710 p0'hpos0 7720 p1pos0 7730 p2'lpos0 7740 p2'hpos0 7750 p3pos0 7760 p4'lpos0 7770 p4'hpos0 7780 p5pos0 7790 spos0 7800 multipos1 7810 farbepos2 7900 tan 7910 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 7920 tanup grafiksinnextmap loeschen 7930 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 7940 tan 7950 clr2return#peekzielmap tan"bitmap ab $e000 loeschen 7960 [181] clr[190]2 7970 clr[142]#[194]sourcemap [192]"bitmap ab $a000 loeschen 7980 if rndfb 7990 return#0 8000 if rndfa 8010 fn 8020 rem#32 8030 lloopif (rndfa),y 8040 get 8050 int lloop 8060 verify rndfb 8070 + 8080 int lloop 8090 sys 8100 tan 8110 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 8120 tanup farbe f. grafik setzen 8130 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 8140 tan 8150 farbsetreturn multi tan"farbbyte fuer 8160 [182] [189][190]3 8170 [142]#[187]56 [192]"multi-color-grafiken=$56 (gruen-blau) 8180 pos rnd2c 8190 return#rnd50 tan"hires-grafiken=$50 (gruen auf schwarz) 8200 [141]#0 8210 floop[139] [187]cc00,y 8220 [139] [187]cd00,y 8230 [139] [187]ce00,y 8240 [139] [187]cef8,y 8250 [161] 8260 [181] floop 8270 [192] 8280 [141]#39 [192]"farbe fuer die menuezeile: 8290 floop2return#rndf0 tan"hellgrau auf schwarz 8300 [139] [187]cc00,y 8310 [142]#[187]0f 8320 [139] [187]d800,y 8330 [161] 8340 [175] floop2 8350 [142]#0 8360 [139] 53281 8370 [158] 8400 [192] 8410 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 8420 [192]up grafik einschalten 8430 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 8440 [192] 8450 ein[142] 56576 8460 [131]#252 8470 [139] 56576 8480 [142] 56578 8490 [128]#3 8500 [139] 56578 8510 [142]#[188]00111000 8520 [139] 53272 8530 [142]#[187]cc 8540 [139] 648 8550 [142] 53265 8560 [128]#32 8570 [139] 53265 8580 [192] 8590 [142]#239 [192]"abhaengig von 'multi' hires- 8600 data 53270 tan"oder multi-color-modus waehlen 8610 [143] multi 8620 [182] einm 8630 [142]#16 8640 [128] 53270 8650 einm[139] 53270 8660 [158] 8700 [192] 8710 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 8720 [192]up umschalten multi[191][194]hires/hires[191][194]multi 8730 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 8740 [192] 8750 umsch[142] 53270 8760 [133]#16 8770 [139] 53270 8780 [158] 8800 [192] 8810 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 8820 [192]up grafik ausschalten, normaler textbildschirm an 8830 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 8840 [192] 8850 aus[142]#4 8860 [139] 648 8870 [142]#151 8880 [139] 56576 8890 [142]#21 8900 [139] 53272 8910 [142]#27 8920 [139] 53265 8930 [142] 53270 8940 [131]#[188]11101111 8950 [139] 53270 8960 [142]#bckgnd 8970 [139] 53281 8980 [158] 9000 [192] 9010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 9020 [192]up punkt setzen/loeschen 9030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 9040 [192] 9050 unplot[142]#[187]80 9060 [176] m32 9070 plot[142]#0 9080 m32[139] flag 9090 [143] 3 9100 [147]#200 9110 [179] m26 9120 ret[135] zurueck 9130 m26[142] 5 9140 [141] 4 9150 [145]#1 9160 [179] m27 9170 [181] ret 9180 [144]#64 9190 [180] ret 9200 m27[162] 9210 [134] 9220 [134] 9230 [134] 9240 [129] 9250 [165] 9260 [142] multtab,y 9270 [139] [187]f8 9280 [142] multtab[190]1,y 9290 [139] [187]f9 9300 [162] 9310 [131]#7 9320 [152] 9330 [136][187]f8 9340 [139] [187]f8 9350 [142] 4 9360 [156] 9370 [131]#[187]f8 9380 [152] 9390 [136]#0 9400 [156] 9410 [142] 5 9420 [136]# [194]sourcemap 9430 [165] 9440 [152] 9450 [159] 9460 [136] [187]f8 9470 [139] [187]61 9480 [163] 9490 [136] [187]f9 9500 [139] [187]62 9510 [159] 9520 [131]#7 9530 [133]#7 9540 [166] 9550 [142] zweitab,x 9560 [141]#0 9570 [143]#53 9580 [160] 9590 [140] 1 9600 [130] flag 9610 [175] m33 9620 [133]#[187]ff 9630 [131] ([187]61),y 9640 [135] m34 9650 m33[128] ([187]61),y 9660 m34[143]#55 9670 [140] 1 9680 [157] 9690 [139] ([187]61),y 9700 zurueck[158] 9710 [192] 9720 [192] 9730 [192] 9740 multtab[185]0,0,[187]40,1,[187]80,2,[187]c0,3 9750 [185]0,5,[187]40,6,[187]80,7,[187]c0,8 9760 [185]0,[187]0a,[187]40,[187]0b,[187]80,[187]0c,[187]c0,[187]0d 9770 [185]0,[187]0f,[187]40,[187]10,[187]80,[187]11,[187]c0,[187]12 9780 [185]0,[187]14,[187]40,[187]15,[187]80,[187]16,[187]c0,[187]17 9790 [185]0,[187]19,[187]40,[187]1a,[187]80,[187]1b,[187]c0,[187]1c 9800 [185]0,[187]1e 9810 [192] 9820 [192] 9830 zweitab[185]1,2,4,8,16,32,64,128 9900 [192] 9910 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 9920 [192]up linie ziehen 9930 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 9940 [192] 9950 draw[141]#1 9960 [138] ix 9970 [138] iy 9980 [138] ct'l 9990 [161] 10000 [138] ax 10010 [138] ay 10020 [138] ct'h 10030 [161] 10040 [142] x1'h 10050 [145] x0'h 10060 [179] nein1 10070 [181] ja1 10080 [142] x1'l 10090 [145] x0'l 10100 [180] ja1 10110 nein1[154] 10120 [142] x0'l 10130 [148] x1'l 10140 [139] dx'l 10150 [142] x0'h 10160 [148] x1'h 10170 [139] dx'h 10180 [138] ix 10190 [135] abfrage2 10200 ja1[154] 10210 [142] x1'l 10220 [148] x0'l 10230 [139] dx'l 10240 [142] x1'h 10250 [148] x0'h 10260 [139] dx'h 10270 abfrage2[142] y1 10280 [145] y0 10290 [180] ja2 10300 nein2[154] 10310 [142] y0 10320 [148] y1 10330 [138] iy 10340 [135] vollst 1 10350 ja2[154] 10360 [148] y0 10370 vollst 1[139] dy 10380 abfrage3[142] dx'h 10390 [181] ja3 10400 [142] dx'l 10410 [145] dy 10420 [180] ja3 10430 nein3[143] dx'l 10440 [142] dy 10450 [140] dy 10460 [139] dx'l 10470 [142] ix 10480 [139] ay 10490 [142] iy 10500 [139] ax 10510 [169] 10520 [138] ix 10530 [138] iy 10540 ja3[142] dx'h 10550 [134] 10560 [139] of'h 10570 [142] dx'l 10580 [137] 10590 [139] of'l 10600 [135] punkt 10610 loop[142] ix 10620 [176] minus 1 10630 add1 x0[152] 10640 [136] x0'l 10650 [139] x0'l 10660 [142] x0'h 10670 [136]#0 10680 [139] x0'h 10690 [135] add 1 y0 10700 minus 1[154] 10710 [142] x0'l 10720 [148]#1 10730 [139] x0'l 10740 [142] x0'h 10750 [148]#0 10760 [139] x0'h 10770 add 1 y0[142] ax 10780 [176] minus 2 10790 [152] 10800 [136] y0 10810 [135] vollst 2 10820 minus 2[154] 10830 [142] y0 10840 [148]#1 10850 vollst 2[139] y0 10860 [149] ct'l 10870 [181] add off 10880 [149] ct'h 10890 add off[152] 10900 [142] of'l 10910 [136] dy 10920 [139] of'l 10930 [142] of'h 10940 [136]#0 10950 [139] of'h 10960 [142] of'h 10970 [145] dx'h 10980 [179] punkt 10990 [181] ungleich 11000 [142] dx'l 11010 [145] of'l 11020 [180] punkt 11030 ungleich[154] 11040 [142] of'l 11050 [148] dx'l 11060 [139] of'l 11070 [142] of'h 11080 [148] dx'h 11090 [139] of'h 11100 [142] ay 11110 [176] minus 3 11120 [152] 11130 [136] x0'l 11140 [139] x0'l 11150 [142] x0'h 11160 [136]#0 11170 [135] add 2 x0 11180 minus 3[154] 11190 [142] x0'l 11200 [148]#1 11210 [139] x0'l 11220 [142] x0'h 11230 [148]#0 11240 add 2 x0[139] x0'h 11250 [142] iy 11260 [176] minus 4 11270 [152] 11280 [136] y0 11290 [135] add 2 y0 11300 minus 4[154] 11310 [142] y0 11320 [148]#1 11330 add 2 y0[139] y0 11340 punkt[141] y0 11350 [138] 3 11360 [143] x0'l 11370 [142] x0'h 11380 [140] 4 11390 [139] 5 11400 [142] multi [192]"multi=0 ? 11410 abs setp tan"ja ==> hires-modus, punkt setzen 11420 [142] 4 [192]"multi-modus, zwei punkte! 11430 data#log11111110 tan"linker punkt 11440 [139] 4 11450 [142] farbe 11460 [134] [192]"farbe=1? 11470 < expcos6 tan"nein ==> punkt setzen (blau:10) 11480 [183] unplot [192]"farbe=0, punkt loeschen (gruen:01) 11490 read expcos3 11500 setpusr plot 11510 return multi tan"multi=0? 11520 [182] drawloop [192]"ja ==> weiter mit der linie 11530 verify 4 tan"multi-color, rechter punkt 11540 [181] [189][190]2 11550 [149] 5 11560 [142] farbe 11570 [134] 11580 [179] [189][190]6 [192]"farbe=2 ==> punkt loeschen (blau:10) 11590 usr plot tan"farbe=1, punkt setzen (gruen:01) 11600 [135] [189][190]3 11610 [183] unplot 11620 drawloop[142] ct'h 11630 [145] dx'h 11640 [179] next 11650 [142] dx'l 11660 [145] ct'l 11670 [180] next 11680 ende[158] 11690 next[135] loop 11700 [192] 11710 [192] 11720 [192] 11730 x0'l[185]0 11740 x0'h[185]0 11750 y0[185]0 11760 x1'l[185]0 11770 x1'h[185]0 11780 y1[185]0 11790 ix[185]0 11800 iy[185]0 11810 ax[185]0 11820 ay[185]0 11830 dx'l[185]0 11840 dx'h[185]0 11850 dy[185]0 11860 [185]0 11870 of'l[185]0 11880 of'h[185]0 11890 ct'l[185]0 11900 ct'h[185]0 11910 flag[185]0 12000 [192] 12010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 12020 [192]up joystick[191]abfrage 12030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 12040 [192] 12050 joyloop[160] [192]"tastatur-abfrage aus 12060 return rnddc00 12070 cmd 12080 oben?dim 12090 spc( 12100 sgn unten? 12110 return yk 12120 on#51 12130 < unten? 12140 wait yk 12150 unten?new 12160 dim 12170 spc( 12180 sgn links? 12190 return yk 12200 on#235 12210 sgn links? 12220 verify yk 12230 links?new 12240 dim 12250 spc( 12260 sgn rechts? 12270 return xk'h 12280 data#1 12290 int links! 12300 return xk'l 12310 on#21 12320 < rechts? 12330 links!wait xk'l 12340 int rechts? 12350 wait xk'h 12360 wait xk'l 12370 rechts?new 12380 dim 12390 spc( 12400 sgn feuer? 12410 return xk'h 12420 data#1 12430 abs rechts! 12440 return xk'l 12450 on#66 12460 sgn feuer? 12470 rechts!verify xk'l 12480 int feuer? 12490 verify xk'h 12500 verify xk'l 12510 feuer?gosub#0 12520 new 12530 dim 12540 sgn position 12550 gosub#1 12560 positionrun feuerflag 12570 return xk'l tan"x-/y-koordinate/8 ==> spalte/zeile 12580 [154] [192]"fuer textbildschirm 12590 save#20 tan"spriteverschiebung bereuecksichtigen 12600 [156] 12610 [142] xk'h 12620 [148]#0 12630 [134] [192]"x-koordinate/8 12640 open 12650 goto 12660 dim 12670 dim 12680 if spalte 12690 return yk 12700 cont 12710 save#50 12720 dim tan"y-koordinate/8 12730 [134] 12740 [134] 12750 [139] zeile 12760 [143]#verz [192]"verzoegerungsschleife 12770 gosub#0 12780 joyverzget 12790 int joyverz 12800 + 12810 int joyverz 12820 return feuerflag tan"feuer gedrueckt? 12830 [181] [189][190]3 [192]"ja, unterprogramm verlassen 12840 read joyloop tan"nein, weiter abfragen 12850 [158] 12860 [192] 12870 feuerflag[185]0 12880 zeile[185]0 12890 spalte[185]0 12900 verzzlr[185]0 13000 [192] 13010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 13020 [192]up befehlsnummer ermitteln 13030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 13040 [192] 13050 getbefnr[142] spalte [192]"maus-spalte mit anfangspositionen 13060 gosub#0 tan"der menuebefehle vergleichen 13070 verglloop[145] begtab,y 13080 [169] 13090 [180] verglloop [192]"solange die mausspalte groesser als 13100 get tan"die anfangsposition des befehls ist, 13110 [163] [192]"weiter vergleichen 13120 sys tan"befehlsnummer in akku uebergeben 13200 [192] 13210 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 13220 [192]up befehl inve[155]eren 13230 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 13240 [192] 13250 befinv[141] befehl 13260 [142] begtab[191]1,y 13270 [139] anf 13280 [142] begtab,y 13290 [139] end 13300 [154] 13310 [142] end 13320 [148] anf 13330 [139] fac 13340 [142]#0 13350 [139] fac[190]1 13360 [139] anf[190]1 13370 [141]#3 13380 achtfachl[129] anf 13390 [132] anf[190]1 13400 [129] fac 13410 [132] fac[190]1 13420 [161] 13430 [181] achtfachl 13440 [142] anf 13450 [139] mem 13460 [142] anf[190]1 13470 [152] 13480 [136]#[187]e0 13490 [139] mem[190]1 13500 [160] 13510 [142]#53 13520 [139] 1 13530 [141] fac 13540 [161] 13550 invloop[142] (mem),y 13560 [133]#255 13570 [139] (mem),y 13580 [161] 13590 [175] invloop 13600 [142]#55 13610 [139] 1 13620 [157] 13630 [158] 13640 [192] 13650 begtab[185]0,5,9,15,21,27,33,38 13660 [192] 13670 befehl[185]0 13680 anf[185]0 13690 [185]0 13700 end[185]5 13710 [185]0 13800 [192] 13810 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 13820 [192]up warten bis feuer[191]taste nicht gedrueckt 13830 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 13840 [192] 13850 feueroff?[160] [192]"warten, bis feuer nicht mehr gedrueckt 13860 return rnddc00 13870 cmd 13880 data#16 13890 abs feueroff? 13900 sys 14000 tan 14010 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 14020 tanup busysinsymbol einblenden 14030 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 14040 tan 14050 busyonreturn#1 tan"spritte-pointer umschalten auf biene 14060 [139] 53287 14070 [142]#46 14080 [139] [187]cff8 14090 [158] 14100 [192] 14110 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 14120 [192]up busy[191]symbol ausblenden 14130 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 14140 [192] 14150 busyoff[142]#1 [192]"sprite-pointer zuruecksetzen auf maus 14160 if 53287 14170 return#47 14180 if rndcff8 14190 sys 14200 tan 14210 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 14220 tanup weiches umblenden der grafik 14230 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 14240 tan 14250 umblendenreturn#53 tan"grafik aus sourcemap ($a000) 14260 [160] [192]"zeilenweise nach zielmap ($e000) 14270 if 1 tan"umblenden 14280 [142]#8 14290 [139] fac 14300 screencopl1[142] fac 14310 [156] 14320 [134] 14330 [134] 14340 [134] 14350 [129] 14360 [165] 14370 [142] multtab,y 14380 [139] mem 14390 [139] mem[190]2 14400 [142] multtab[190]1,y 14410 [139] mem[190]1 14420 [139] mem[190]3 14430 [152] 14440 [142] mem[190]1 14450 [136]# [194]sourcemap 14460 [139] mem[190]1 14470 [152] 14480 [142] mem[190]3 14490 [136]# [194]zielmap 14500 [139] mem[190]3 14510 [159] 14520 [131]#7 14530 [156] 14540 [152] 14550 [136] mem 14560 [139] mem 14570 [142] mem[190]1 14580 [136]#0 14590 [139] mem[190]1 14600 [159] 14610 [152] 14620 [136] mem[190]2 14630 [139] mem[190]2 14640 [142] mem[190]3 14650 [136]#0 14660 [139] mem[190]3 14670 [143]#39 14680 [141]#0 14690 screencopl2[142] (mem),y 14700 [139] (mem[190]2),y 14710 [152] 14720 [142] mem 14730 [136]#8 14740 [139] mem 14750 [142] mem[190]1 14760 [136]#0 14770 [139] mem[190]1 14780 [152] 14790 [142] mem[190]2 14800 [136]#8 14810 [139] mem[190]2 14820 [142] mem[190]3 14830 [136]#0 14840 [139] mem[190]3 14850 [170] 14860 [175] screencopl2 14870 [141]#1 14880 [138] feuerflag 14890 [143]#umblendverz 14900 [183] joyverz [192]"verzoegerung fuer langsames, 'weiches' 14910 verify fac tan"umblenden 14920 [142] fac 14930 [145]#200 14940 [181] screencopl1 14950 [142]#55 14960 [139] 1 14970 [157] 14980 [158] 15000 [192] 15010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15020 [192]up hoehen[191]array loeschen 15030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15040 [192] 15050 dataclr[142]#[193]array [192]"feld mit den hoehen der eckpunkte 15060 gosub#peekarray tan"mit nullen ueberschreiben 15070 [139] mem 15080 [138] mem[190]1 15090 [143]#17 15100 [141]#0 15110 [165] 15120 datclrl[139] (mem),y 15130 [161] 15140 [181] datclrl 15150 [149] mem[190]1 15160 [170] 15170 [181] datclrl 15180 [158] 15200 [192] 15210 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15220 [192]up variablen initialisieren 15230 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15240 [192] 15250 varinit[142]#0 [192]"naeh=0 15260 if naeh 15270 return#32 tan"sw=32:a2=32 15280 [139] sw 15290 [139] a2 15300 [129] 15310 [139] aw [192]"aw=64 15320 sys 15330 tan 15340 tan 15350 tan 15360 runtext1pos"[147][144]***************** run ******************",13 15370 pos"wollen sie stuetzpunkte eingeben (j/n)?",13,0 15380 runtext2pos" 1[192][192][192][192][192]2[192][192][192][192][192]3",13 15390 pos" [205] [206] [205] [206] _ diese skizze zeigt",13 15400 pos" [205] [206] [205] [206] ihnen die lage der",13 15410 pos" 4[192][192][192][192][192]5 sechs stuetzpunkte",13 15420 pos" [205] [206] in der grafik.",13 15430 pos" [205] [206]",13 15440 pos" 6",13,0 15500 tan 15510 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 15520 tanup maussincursor ausschalten 15530 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 15540 tan 15550 mausoffreturn#0 tan"sprites ausschalten 15560 [139] 53269 15570 [158] 15600 [192] 15610 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15620 [192]up warten auf tastendruck 15630 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15640 [192] 15650 tast&text[142]# [193]tatext [192]"text 'taste' ausgeben 15660 gosub# peektatext 15670 usr stringout 15680 tan 15690 tastereturn#0 tan"auf taste warten 15700 [139] 198 15710 tastl[142] 198 15720 [182] tastl 15730 [142] 631 15740 [143]#0 15750 [140] 198 15760 [158] 15800 [192] 15810 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15820 [192]up directory ausgeben 15830 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 15840 [192] 15850 dir[142]#36 [192]"36=ascii fuer '$' 15860 if mem tan"parameter fuer namen setzen 15870 [142]#mem 15880 [139] [187]bb 15890 [142]#0 15900 [139] [187]bc 15910 [142]#1 [192]"filenummer 15920 if rndb7 15930 return#8 tan"geraeteadresse 15940 [139] [187]ba 15950 [142]#[187]60 [192]"sekundaeradresse 15960 if rndb9 15970 usr rndf3d5 tan"file oeffnen 15980 [142] [187]ba 15990 [183] talk 16000 [142] [187]b9 16010 [183] sekadrsend 16020 [142]#0 [192]"status=0 16030 if 144 16040 gosub#3 tan"zwei bytes koppeladresse ueberspringen 16050 dirneuzeil[138] mem 16060 [183] iecin 16070 [139] mem[190]1 16080 [141] 144 16090 [181] dirback 16100 [183] iecin 16110 [141] 144 16120 [181] dirback 16130 [141] mem 16140 [161] 16150 [181] dirneuzeil 16160 [143] mem[190]1 16170 [183] numout [192]"zeilennummer ausgeben 16180 return#32 16190 usr print 16200 dirnxtcharusr iecin 16210 rem 144 16220 int dirback 16230 spc( 16240 abs dirnxtzeil 16250 usr print 16260 read dirnxtchar 16270 dirnxtzeilreturn#13 tan"zeilenende erreicht, <return> 16280 [183] print 16290 [142] 214 [192]"schon zeile 22? 16300 on#22 16310 < dirm tan"nein, also weiter, naechste zeile 16320 [183] tast&text [192]"ja, auf taste warten 16330 rem#24 tan"zeile 4 bis 24 loeschen 16340 zeilclrloop[183] zeilclr 16350 [170] 16360 [147]#4 16370 [181] zeilclrloop 16380 [142]# [193]hometxt 16390 [141]# [194]hometxt 16400 [183] stringout 16410 dirm[141]#2 16420 [181] dirneuzeil 16430 dirback[183] [187]f642 16440 [158] 16450 [192] 16460 tatext[185] 13," tastewait",13,0 16470 hometxt[185]"",0 16500 [192] 16510 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 16520 [192]up grafik[160]te umkopieren 16530 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 16540 [192] 16550 grafikcopy[142]#54 [192]"grafik schnell von $a000 nach $e000 16560 close tan"kopieren 16570 [139] 1 16580 [142]#[187]a0 16590 [139] mem[190]1 16600 [142]#[187]e0 16610 [139] mem[190]3 16620 [142]#0 16630 [139] mem 16640 [139] mem[190]2 16650 [165] 16660 [143]#32 16670 grfcopl[142] (mem),y 16680 [139] (mem[190]2),y 16690 [161] 16700 [181] grfcopl 16710 [149] mem[190]1 16720 [149] mem[190]3 16730 [170] 16740 [181] grfcopl 16750 [142]#55 16760 [139] 1 16770 [157] 16780 [158] 16800 [192] 16810 [192][189][189][189][189][189][189][189][189] 16820 [192]up laden 16830 [192][189][189][189][189][189][189][189][189] 16840 [192] 16850 laden[143]#8 [192]"parameter fuer load setzen 16860 gosub#0 16870 usr filpar 16880 rem#atnfilename 16890 gosub#peekfilename 16900 return filenamlaeng 16910 usr filnam 16920 return#0 16930 rem fileanf'l 16940 gosub fileanf'h 16950 read load 17000 tan 17010 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp 17020 tanup abspeichern 17030 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp 17040 tan 17050 speichernreturn#54 tan"$a000-$bfff auf ram umschalten 17060 [160] 17070 [139] 1 17080 [143]#8 [192]"parameter fuer save setzen 17090 usr filpar 17100 rem#atnfilename 17110 gosub#peekfilename 17120 return filenamlaeng 17130 usr filnam 17140 rem fileanf'l 17150 gosub fileanf'h 17160 restore mem 17170 run memcos1 17180 return#mem 17190 rem fileend'l 17200 gosub fileend'h 17210 usr save 17220 return#55 17230 if 1 17240 cmd 17250 sys 17260 tan 17270 fileanf'lpos0 17280 fileanf'hpos0 17290 fileend'lpos0 17300 fileend'hpos0 17310 filenamlaengpos0 17400 tan 17410 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp 17420 tanup daten laden 17430 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp 17440 tan 17450 dloadreturn#atnarray tan"startadresse='array' uebergeben 17460 [139] fileanf'l 17470 [142]#[194]array 17480 [139] fileanf'h 17490 [135] laden 17500 [192] 17510 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 17520 [192]up daten speichern 17530 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 17540 [192] 17550 dsave[142]#[193]array [192]"startadresse='array', 17560 if fileanf'l tan"endadresse='datend' 17570 [142]#[194]array 17580 [139] fileanf'h 17590 [142]#[193]datend 17600 [139] fileend'l 17610 [142]#[194]datend 17620 [139] fileend'h 17630 [135] speichern 17700 [192] 17710 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 17720 [192]up grafik laden 17730 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189] 17740 [192] 17750 gload[142]#0 [192]"ladeadresse=$e000 17760 if fileanf'l 17770 return#rnde0 17780 if fileanf'h 17790 read laden 17800 tan 17810 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 17820 tanup grafik speichern 17830 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp 17840 tan 17850 gsavereturn# atnsourcemap tan"startadresse=$a000 17860 [139] fileanf'l [192]"endadresse=$c000 17870 return# peeksourcemap 17880 if fileanf'h 17890 return#atnrndc000 17900 if fileend'l 17910 return#peekrndc000 17920 if fileend'h 17930 return multi tan"grafik-modus mit in nicht sichtbaren 17940 [139] [187]bf50 [192]"teil der grafik schreiben 17950 read speichern